home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 118 / SGDS 118.2mg / SDGS.118 / B / LAB.SEG01 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-06-08  |  1.9 KB  |  61 lines  |  [FC] Applesoft BASIC Program (0x4A01)
  1. 5 D$ =  CHR$(4):OP = 1
  2. 6  ONERR  GOTO 5000
  3. 10  CALL 18520
  4. 20  HCOLOR= 3: GOSUB 1030: GOSUB 1040
  5. 21  GOSUB 4000
  6. 22 X1 = 22:Y1 = 34:X2 = 167:Y2 = 84: GOSUB 3000
  7. 24 OP$(1) = "Play Labyrinth":OP$(2) = "Make New Characters":OP$(3) = "Make a New Maze":OP$(4) = "Information":OP$(5) = "Quit"
  8. 26  FOR I = 1 TO 5: VTAB 5 +I: HTAB 5: PRINT OP$(I): NEXT 
  9. 27 :
  10. 28  IF  PEEK( -16384) >127  THEN 36
  11. 30  INVERSE : VTAB 5 +OP: HTAB 5: PRINT OP$(OP)
  12. 32 :
  13. 34  GOTO 28
  14. 36  GET K$: IF K$ < > CHR$(13)  AND K$ < > CHR$(8)  AND K$ < > CHR$(21)  AND (K$ <"1"  OR K$ >"5")  AND K$ < > CHR$(10)  AND K$ < > CHR$(11)  AND K$ < > CHR$(27)  THEN 28
  15. 37  NORMAL : VTAB 5 +OP: HTAB 5: PRINT OP$(OP)
  16. 38  IF K$ =  CHR$(13)  THEN 70
  17. 40  IF K$ =  CHR$(8)  OR K$ =  CHR$(11)  THEN OP = OP -1
  18. 42  IF K$ =  CHR$(21)  OR K$ =  CHR$(10)  THEN OP = OP +1
  19. 44  IF K$ >"0"  AND K$ <"6"  THEN OP =  VAL(K$)
  20. 46  IF OP = 0  THEN OP = 5
  21. 48  IF OP = 6  THEN OP = 1
  22. 49  IF K$ =  CHR$(27)  THEN  GOTO 120
  23. 50  GOTO 27
  24. 70  ON OP GOTO 90,100,110,130,120
  25. 90  PRINT D$"RUNLAB.MAIN"
  26. 100  PRINT D$"RUNLAB.CHAR"
  27. 110  PRINT D$"RUNLAB.BUILD"
  28. 120  PRINT D$"BYE": TEXT : HOME : END : REM ****OR ANYTHING ELSE
  29. 130  GOSUB 1030
  30. 140  VTAB 8: HTAB 16: PRINT "Labyrinth": HTAB 20: PRINT "by": HTAB 16: PRINT "Kurt Olsen"
  31. 150  PRINT : HTAB 3: PRINT "Copyright (c) 1991 by Softdisk, Inc.": HTAB 11: PRINT "All rights reserved.": HTAB 5: PRINT "Published on Softdisk issue #118"
  32. 160  HTAB 6: PRINT "Subscriptions: 1-800-831-2694.": HTAB 5: PRINT "Changing this notice is illegal."
  33. 170  GOSUB 1000
  34. 840  GOTO 20
  35. 1000  VTAB 24: HTAB 13: PRINT "Press Any Key";
  36. 1010  IF  PEEK( -16384) <128  THEN 1010
  37. 1020  GET K$
  38. 1025  IF K$ =  CHR$(27)  THEN  GOTO 10
  39. 1030  HOME : CALL 880: PRINT : HTAB 7: PRINT "Labyrinth    by Kurt Olsen":X1 = 36:Y1 = 2:X2 = 228:Y2 = 20: GOSUB 3000: PRINT 
  40. 1035  RETURN 
  41. 1040  VTAB 23: HTAB 3: PRINT "Copyright (c) 1991 by Softdisk, Inc.":X1 = 0:Y1 = 170:X2 = 279:Y2 = 188: GOSUB 3000: RETURN 
  42. 3000  HPLOT X1,Y1 TO X2,Y1 TO X2,Y2 TO X1,Y2 TO X1,Y1: FOR I = 2 TO 3: HPLOT X1 +I,Y1 +I TO X2 -I,Y1 +I TO X2 -I,Y2 -I TO X1 +I,Y2 -I TO X1 +I,Y1 +I: NEXT : RETURN 
  43. 4000  VTAB 15: HTAB 5: PRINT "Use arrows and RETURN to select"
  44. 4010 X1 = 22:Y1 = 106:X2 = 249:Y2 = 124: GOSUB 3000: RETURN 
  45. 5000 ER% =  PEEK(222):EL% =  PEEK(218) + PEEK(219) *256
  46. 5010  CALL  -3288: IF ER% = 255  THEN  RESUME 
  47. 5020  IF ER% < >6  THEN 5050
  48. 5030  CALL 800: VTAB 21: PRINT "Please re-insert the disk with Labyrinthinto a drive and press RETURN, or press ESC to quit."
  49. 5040  GOTO 5110
  50. 5050  IF ER% < >8  THEN 5080
  51. 5060  CALL 800: VTAB 21: PRINT "I/O Error - Please check the drive and  then press RETURN to try again, or ESC  to quit."
  52. 5070  GOTO 5110
  53. 5080  CALL 800: VTAB 21: PRINT "Unknown Error - Please press RETURN."
  54. 5090  IF  PEEK( -16384) <128  THEN 5090
  55. 5100  POKE  -16368,0: GOTO 120
  56. 5110  IF  PEEK( -16384) <128  THEN 5110
  57. 5120 R =  PEEK( -16384) -128
  58. 5125  POKE  -16368,0
  59. 5130  IF R = 13  THEN  RESUME 
  60. 5140  IF R = 27  THEN  GOTO 120
  61. 5150  GOTO 5110